home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / AWARDEDT.PRG < prev    next >
Text File  |  1986-05-08  |  3KB  |  109 lines
  1. * award VERSION 860501 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  2. * PUTS DATA IN award DATABASE
  3. SELECT PRIMARY
  4. USE &logbook  INDEX &logbook
  5.  
  6. SELECT SECONDARY
  7. USE &award INDEX &award
  8.  
  9. STORE T TO cflag
  10. STORE '             ' TO cstate
  11. STORE ' ' TO df
  12. STORE '         ' TO callcard
  13. ERASE
  14.  
  15. DO WHILE cflag
  16.    ERASE
  17.    @ 1,5 SAY 'G3ZCZ GENERAL AWARD DATA ENTRY PROGRAM VERSION 1.0'
  18.    @ 3,1 SAY ' '
  19.    ACCEPT    'Which Award area (* to terminate) ?'  TO cstate
  20.    IF  cstate = '*'
  21.       STORE F TO cflag
  22.    ELSE
  23.       SELECT SECONDARY
  24.       GOTO TOP
  25.       FIND &cstate
  26.       IF # = 0
  27.          @ 6,10 SAY '  '
  28.          ? cstate,' IS A NEW ONE'
  29.       ELSE
  30.          @ 8,1 SAY ' '
  31.          ? pc,ddate,dband,dcall,dmode,dstate
  32.       ENDIF
  33.          @ 12,1 SAY 'Do you want to update the entry (Y/N/E) ?'
  34.          @ 12,40 GET df
  35.          READ
  36.  
  37.       DO CASE
  38.          CASE df = 'Y'
  39.             STORE '         ' TO  callcard
  40.             SELECT PRIMARY
  41.             @ 14,1 SAY 'What is the call ? '
  42.             @ 14,21 GET callcard
  43.             READ
  44.             FIND &callcard
  45.             @ 16,1 SAY ' '
  46.             IF # = 0
  47.                ? callcard,' is not in log'
  48.             ELSE
  49.                STORE T TO qflag
  50.                DO WHILE call = callcard .AND. qflag
  51.                   @ 20,1 SAY ' '
  52.                   DISP
  53.                   @ 22,2 SAY ' '
  54.                   ACCEPT 'This one (Y/N) ?' TO df
  55.                   IF df = 'Y'
  56.                      STORE F TO qflag
  57.                   ENDIF
  58.                   SKIP
  59.                ENDDO
  60.                IF qflag
  61.                   * DON'T update entry
  62.                ELSE
  63.                   SKIP -1
  64.                   SELECT SECONDARY
  65.                   IF # = 0
  66.                      APPEND BLANK
  67.                   ENDIF
  68.                   REPLACE pc    WITH cstate
  69.                   REPLACE dcall WITH call
  70.                   REPLACE ddate WITH date
  71.                   REPLACE dtime WITH time
  72.                   REPLACE dband WITH band
  73.                   REPLACE dmode WITH mode
  74.                   REPLACE dstate WITH qslrx
  75.                ENDIF
  76.             ENDIF
  77.             CASE df = 'E'
  78.                  REPLACE dcall WITH ' '
  79.                  REPLACE ddate WITH ' '
  80.                  REPLACE time  WITH ' '
  81.                  REPLACE dband WITH ' '
  82.                  REPLACE dmode WITH ' '
  83.                  REPLACE dstate WITH ' '
  84.  
  85.          ENDCASE
  86.    ENDIF
  87. ENDDO
  88. SELECT PRIMARY
  89. USE
  90. SELECT SECONDARY
  91. USE
  92. RELEASE qflag,callcard,df,cstate,cflag
  93. RETURN
  94. 14,21 GET callcard
  95.             READ
  96.             FIND &callcard
  97.             @ 16,1 SAY ' '
  98.             IF # = 0
  99.                ? callcard,' is not in log'
  100.             ELSE
  101.                STORE T TO qflag
  102.                DO WHILE call = callcard .AND. qflag
  103.                   @ 20,1 SAY ' '
  104.                   DISP
  105.                   @ 22,2 SAY ' '
  106.                   ACCEPT 'This one (Y/N) ?' TO df
  107.                   IF df = 'Y'
  108.                      STORE F TO qflag
  109.                   ENDIF